home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).do / FORTUNE.TELLER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  4KB  |  88 lines
  1. 100  REM  ----------------
  2. 110  REM  FORTUNE TELLER
  3. 120  REM  ERIC MARKS
  4. 130  REM  5/27/81
  5. 140  REM  ----------------
  6. 150  REM 
  7. 160  DIM A$(300): REM  ADJ. ARRAY
  8. 170  DIM N$(300): REM  NOUN ARRAY
  9. 180  DIM V$(300): REM  VERB ARRAY
  10. 190  HOME : VTAB 12: PRINT  TAB( 15);"FORTUNE TELLER..."
  11. 200  REM                            
  12. 210 I = 0
  13. 220 I = I +1
  14. 230  READ A$(I)
  15. 240  IF A$(I) = "X"  THEN 270
  16. 250  GOTO 220
  17. 260  REM  NOW SAVE I-1 IN POINTER TO ADJ ARRAY...SUBTRACT 1 TO LEAVE OUT X
  18. 270 AP = I -1
  19. 280  REM 
  20. 290 I = 0
  21. 300 I = I +1
  22. 310  READ N$(I)
  23. 320  IF N$(I) = "X"  THEN 340
  24. 330  GOTO 300
  25. 340 NP = I -1: REM  SAVE NOUN POINTER
  26. 350  REM 
  27. 360 I = 0
  28. 370 I = I +1
  29. 380  READ V$(I)
  30. 390  IF V$(I) = "X"  THEN 410
  31. 400  GOTO 370
  32. 410 VP = I -1: REM  SAVE VERB POINTER
  33. 420  REM 
  34. 430  HOME : VTAB 6: HTAB 12: PRINT "YOUR FORTUNE:": VTAB 10: HTAB 7
  35. 440  SPEED= 75
  36. 450  PRINT "YOU WILL BE"
  37. 460  PRINT 
  38. 470  PRINT  TAB( 7);
  39. 480  PRINT V$( INT(VP * RND(1) +1))
  40. 490  PRINT : PRINT 
  41. 500  PRINT  TAB( 7);
  42. 510  PRINT "BY ";
  43. 520 TEST$ = A$( INT(AP * RND(2) +1))
  44. 530 HOLD$ =  LEFT$(TEST$,1)
  45. 540  IF HOLD$ = "A"  OR HOLD$ = "E"  OR HOLD$ = "I"  OR HOLD$ = "O"  OR HOLD$ = "U"  THEN  PRINT "AN ";: GOTO 560
  46. 550  PRINT "A ";
  47. 560  PRINT TEST$; SPC( 1);N$( INT(NP * RND(3) +1))
  48. 570  SPEED= 255
  49. 580  VTAB 23: PRINT "ANY KEY = AGAIN   E = END": GET Q$
  50. 590  REM  ALTERNATE 610:FOR TW=1 TO 1250:NEXT TW:GOTO 460
  51. 600  IF Q$ = "E"  THEN  END 
  52. 610  GOTO 430
  53. 1000  REM  DATA MUST BE
  54. 1010  REM  IN THIS ORDER:
  55. 1020  REM  ADJ, N, V.  USE
  56. 1030  REM  X AS END-OF-LIST
  57. 1040  REM  INDICATOR
  58. 2000  DATA  UGLY,STUPID,MEATY,LUMPY,MEAN,DUMB,ENTHUSIASTIC,BOLD,SLY,BRAVE
  59. 2010  DATA  TALL,WIDE,SHORT,HANDSOME,BLUE-COLORED,GREEN,SICK,DRIPPING,DROOLING,SALIVATING
  60. 2020  DATA  EAGER,OLD,YOUNG,PLEASANT,BIG,RIPE,INJURED,AMAZED
  61. 2030  DATA  NAGGING,BRUTAL,LOVELY,BRILLIANT,SHINY,PICKLED,OBSESSED
  62. 2040  DATA  DEAF,CROSS-EYED,FEAR-CRAZED,DEVIL-MAY-CARE,DYING,RICH,POOR,ELDERLY,FATHERLY,MOTHERLY,CUTE
  63. 2050  DATA     LUMBERING,DODDERING,SELF-CENTERED
  64. 2060  DATA  YELLOW,HARD,SOFT,STICKY,WET,HOT,FINICKY,ROTTEN,WILY,SNEAKY,FEARLESS,AGED,WEARY
  65. 2070  DATA  X
  66. 3000  DATA  HORSE,PIG,BUNNY RABBIT,OX,ELEPHANT,FISH
  67. 3010  DATA  OCTOPUS,POTATO,TOMATO,BROCCOLI,SPONGE,PLATYPUS
  68. 3020  DATA   STUDENT,PENCIL,FROG,DOG,CAT
  69. 3030  DATA  SUBMARINE,WHALE,CAMEL,ORANGE,RADISH,BANANA,TURNIP,CABBAGGE,BEET
  70. 3040  DATA  FORTUNE TELLER,FARMER,BASSOONIST
  71. 3050  DATA  CANNIBAL,MUGGER,SALESMAN,STORE CLERK,BARBER,TRAVEL AGENT,CLAM,NOODLE,APPLE
  72. 3060  DATA  X
  73. 4000  DATA  EATEN,STOLEN,HURT,RUN OVER,SHOT,STOMPED,KISSED
  74. 4010  DATA  KIDNAPPED,STABBED REPEATEDLY,REWARDED FOR YOUR KINDNESS,LOVED,FUSSED OVER,GREETED WITH A PARADE
  75. 4020  DATA  SPIED UPON,SHOVED,CHOPPED INTO LITTLE PIECES,CARED FOR,MARRIED,APPRECIATED,CALLED,HELD UP,STUCK UP
  76. 4030  DATA  PHOTOGRAPHED IN THE NUDE,GUARDED,PRAISED,TARRED AND FEATHERED
  77. 4040  DATA   USED,AIDED,FRUSTRATED,REMEMBERED,MADE LOVE TO,SOMEWHAT PUZZLED
  78. 4050  DATA  FLOWN TO MIAMI,TREATED TO LUNCH,THROWN OFF THE ROOF,AWAKENED SUDDENLY,OPERATED UPON,QUESTIONED MERCILESSLY,ABUSED,BADLY BURNED
  79. 4060  DATA  FIRED,HIRED,EMPLOYED,CONSULTED,ENDOWED,EMBALMED
  80. 4070  DATA  LAUGHED AT,TICKLED,MISTAKEN FOR A TASTY SNACK
  81. 4080  DATA  DISSOLVED IN BUTTER,ADORED
  82. 4090  DATA   HELD PRISONER,IMPRISONED,EATEN ALIVE,BOILED IN OIL,FED TO THE ALLIGATORS,ARRESTED,BETRAYED,NOMINATED FOR PRESIDENT
  83. 4100  DATA  INVOLVED IN A DOMESTIC QUARREL,EXCHANGED FOR SOMETHING BETTER,RETURNED TO THE MANUFACTURER,TRADED FOR BEADS,HELD FOR RANSOM,IDOLIZED,TESTED FOR RABIES,SWALLOWED WHOLE,SUSPECTED OF INDECENCY
  84. 4110  DATA  ASKED FOR IDENTIFICATION,EXAMINED THOROUGHLY,SUSPECTED OF IMMORAL BEHAVIOR,FRIED IN CHICKEN FAT
  85. 4120  DATA   TESTED FOR INTELLIGENCE,DENIED A PASSPORT,HAULED INTO COURT,TIED TO A TREE,LOCKED UP,SENT TO THE BUG HOUSE,PLACED IN ISOLATION
  86. 4130  DATA  SENTENCED TO DEATH,INVITED TO THE WHITE HOUSE,INVITED TO SING AT THE MET,IRRADIATED,MASHED FLATTER THAN A PANCAKE,PLAYED FOR A FOOL,TOTALLY IGNORED,RUBBED OUT,SPAT UPON,GIVEN LAST RITES
  87. 4140  DATA   EXAMINED,MADE FUN OF,ADMIRED,OGLED,YELLED AT, DRAFTED,FONDLED,SENT ON A DANGEROUS MISSION,CUDDLED
  88. 4150  DATA  X